home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2001-12-22 | 2.3 KB | 93 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="1"
- "COUNT"="3"
- "UIPATH"="Internet\Instant Messaging\Gku"
- "NAME"="User Details"
- "LANGUAGE"="VBScript"
- "TEXT 1"="User Number"
- "TEXT 2"="User Name"
- "TEXT 3"="Password"
- "DESCRIPTION 1"="These are your current user details. Since Gku offers no ability at the moment to edit these options, they are provided here."
- "DESCRIPTION 2"="Blanking out all of these options will force Gku to re-register you."
- "DESCRIPTION 3"="The password is not encrypted; I haven't yet got the code figured out!"
- "DESCRIPTION 4"="Gku may be obtained at http://lockergnome.virtualave.net"
- "COMMENT 1"="For more information, go to http://www.xteq.com."
- "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
- "COMMENT 3"="Thanks also to Vex, the maker of Gku."
- "VERSION"="3.00"
- "AUTHOR"="Vex Bit <vex@xifa.fsnet.co.uk>"
- "COPYRIGHT"="Copyright ⌐ 1999-2000, Xifa Technologies, Inc."
- "CONTACTURL"="http://www.xifa.net"
-
-
- 'Declaration of some constants
- sFile=""
- sSec="UserInfo"
- sV1="UsrGku"
- sV2="UsrName"
- sV3="UsrPass"
-
- 'Called when the Plugin is started
- SUB Plugin_Initialize
- Call GetGkuFile
-
- If FileExists(sFile) then
-
- s=iniReadValue(sFile,sSec,sV1)
- SetUiElement 1,s
-
- s=iniReadValue(sFile,sSec,sV2)
- SetUiElement 2,s
-
- s=iniReadValue(sFile,sSec,sV3)
- SetUiElement 3,s
-
- else
- Call Disable()
- End if
-
- END SUB
-
- 'Called when the Plugin should validate the Data the user has entered
- SUB Plugin_CheckData(ElementIndex)
- END SUB
-
- 'Called when the Plugin should apply the changes
- SUB Plugin_Apply(ElementIndex,ElementSubIndex)
- bOK=False
-
- s=GetUIElement(2)
- if len(S)>0 then
- if IsNumeric(s)=true then
- Call MsgError("Please enter a number into the field PORT!")
- else
- bOK=True
- end if
- else
- bOK=true
- end if
-
-
-
- if bOK=true then
- s=GetUIElement(1)
- Call iniWriteValue(sFile,sSec,sV1,s)
-
- s=GetUIElement(2)
- Call iniWriteValue(sFile,sSec,sV2,s)
-
- s=GetUIElement(3)
- Call iniWriteValue(sFile,sSec,sV3,s)
- end if
- END SUB
-
- 'Called when the Plugin is about to be removed from memory
- SUB Plugin_Terminate
- END SUB
-
- 'User defined SUB's
- SUB GetGKUFile
- s=iniReadValue("WIN.INI","GKU","InstallDir")
- sFile=s & "\gku.ini"
- END SUB
-